home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1993 / The Association of Shareware Professionals Advantage CD-ROM 1993.iso / files / utilties / listr311 / nogr.cmd < prev    next >
OS/2 REXX Batch file  |  1992-02-17  |  1KB  |  44 lines
  1. ..rem    NOGR.CMD                                                2/16/92
  2. ..rem
  3. ..rem    This file will strip the line graphic characters from LISTR.DOC
  4. ..rem
  5. ..rem    Use this if your printer does not support these line drawing
  6. ..rem    characters.  To "filter" LISTR.DOC use the command:
  7. ..rem
  8. ..rem        LISTR LISTR.DOC NOGR.CMD LISTR.TXT
  9. ..rem
  10. ..rem    Print LISTR.TXT to get the document without graphic characters.
  11. ..rem
  12. ..rem      Set the number of lines per page to more than the lines in
  13. ..rem      the file, so that pagination will not be altered
  14. ..rem
  15. ..PageLines 32000
  16. ..TopLine 1
  17. ..BotLine 31999
  18. ..rem
  19. ..rem     Set the number of columns so that lines will not be wrapped
  20. ..rem     or truncated
  21. ..rem
  22. ..PageCols 85
  23. ..LeftMgn 0
  24. ..TextLen 80
  25. ..rem
  26. ..rem     Turn off the final form feed.  Without this, an extra blank
  27. ..rem     page would feed at the end of the document.
  28. ..rem
  29. ..eject off
  30. ..rem
  31. ..rem     The next commands do the translation.  All line characters
  32. ..rem     are replaced by ordinary ASCII characters.
  33. ..rem
  34. ..setxlate '░':' '  '°':' '
  35. ..setxlate '┌':'+'  '┬':'+'  '┐':'+'  '├':'+'  '┼':'+'  '┤':'+'
  36. ..setxlate '└':'+'  '┴':'+'  '┘':'+'  '─':'-'  '│':'|'
  37. ..setxlate '╔':'+'  '╦':'+'  '╗':'+'  '╠':'+'  '╬':'+'  '╣':'+'
  38. ..setxlate '╚':'+'  '╩':'+'  '╝':'+'  '═':'-'  '║':'|'
  39. ..rem
  40. ..rem     This next command is necessary to process LISTR.DOC, since
  41. ..rem     the file contains examples that start with "..".
  42. ..rem
  43. ..cmdlead &&
  44.